e (SETQ $PRINT-PROJECT-PERSON-SUMMARYS nil) e (SETQ $PRINT-PROJECT-MONTHLY t) e (SETQ $PRINT-PROJECT-GS nil) read (salary in dsk (pro he)) exe (bis gs dsk (pro he)) read (bis in dsk (pro he)) project ((01 81)(02 81)) (bis out dsk (pro he))